home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / inputbox.au3 < prev    next >
Encoding:
Text File  |  2006-06-20  |  1.3 KB  |  43 lines
  1. ;
  2. ; AutoIt Version: 3.0
  3. ; Language:       English
  4. ; Platform:       Win9x/NT
  5. ; Author:         Jonathan Bennett (jon@hiddensoft.com)
  6. ;
  7. ; Script Function:
  8. ;   Demonstrates the InputBox, looping and the use of @error.
  9. ;
  10.  
  11.  
  12. ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
  13. $answer = MsgBox(4, "AutoIt Example (English Only)", "This script will open an input box and get you to type in some text.  Run?")
  14.  
  15.  
  16. ; Check the user's answer to the prompt (see the help file for MsgBox return values)
  17. ; If "No" was clicked (7) then exit the script
  18. If $answer = 7 Then
  19.     MsgBox(4096, "AutoIt", "OK.  Bye!")
  20.     Exit
  21. EndIf
  22.  
  23. ; Loop around until the user gives a valid "autoit" answer
  24. $bLoop = 1
  25. While $bLoop = 1
  26.     $text = InputBox("AutoIt Example", "Please type in the word ""autoit"" and click OK")
  27.     If @error = 1 Then
  28.         MsgBox(4096, "Error", "You pressed 'Cancel' - try again!")
  29.     Else
  30.         ; They clicked OK, but did they type the right thing?
  31.         If $text <> "autoit" Then
  32.             MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
  33.         Else
  34.             $bLoop = 0    ; Exit the loop - ExitLoop would have been an alternative too :)
  35.         EndIf
  36.     EndIf
  37. WEnd
  38.  
  39. ; Print the success message
  40. MsgBox(4096,"AutoIt Example", "You typed in the correct word!  Congrats.")
  41.  
  42. ; Finished!
  43.